! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialization File
! 
! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : aromatics_kpp_Initialize.f90
! Time                 : Fri Jun 12 02:54:05 2020
! Working directory    : /n/home08/kbates/Aromatics/MCM_update_chamber
! Equation file        : aromatics_kpp.kpp
! Output root filename : aromatics_kpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE aromatics_kpp_Initialize

  USE aromatics_kpp_Parameters, ONLY: dp, NVAR, NFIX
  IMPLICIT NONE

CONTAINS


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialize - function to initialize concentrations
!   Arguments :
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

SUBROUTINE Initialize ( )


  USE aromatics_kpp_Global

  INTEGER :: i
  REAL(kind=dp) :: x

  CFACTOR = 2.500000e+19_dp

  x = (1.0E-30)*CFACTOR
  DO i = 1, NVAR
    VAR(i) = x
  END DO

  x = (1.0E-30)*CFACTOR
  DO i = 1, NFIX
    FIX(i) = x
  END DO

  VAR(48) = (1.0001E-2)*(0.0E-9)*CFACTOR
  VAR(73) = (1.0002E-2)*(0.0E-9)*CFACTOR
  VAR(403) = (4.9999E-1)*(5.0E-6)*CFACTOR
  VAR(690) = (1.0003E-2)*(1.0E-3)*CFACTOR
  VAR(736) = (5.0004E-3)*(5.0E-3)*CFACTOR
  FIX(2) = (2.1E-1)*CFACTOR
! constant rate coefficients
  RCONST(13) = 5.35e+07
  RCONST(22) = 2e-11
  RCONST(26) = 4e-12
  RCONST(127) = 2.3e-12
  RCONST(133) = 2.3e-12
  RCONST(151) = 2.3e-12
  RCONST(157) = 2.3e-12
  RCONST(176) = 2.3e-12
  RCONST(182) = 2.3e-12
  RCONST(199) = 2.3e-12
  RCONST(217) = 2.3e-12
  RCONST(229) = 2.3e-12
  RCONST(278) = 2.3e-12
  RCONST(284) = 2.3e-12
  RCONST(289) = 2.3e-12
  RCONST(296) = 2.3e-12
  RCONST(344) = 2.3e-12
  RCONST(350) = 2.3e-12
  RCONST(358) = 2.3e-12
  RCONST(363) = 2.3e-12
  RCONST(398) = 2.3e-12
  RCONST(404) = 2.3e-12
  RCONST(409) = 2.3e-12
  RCONST(416) = 2.3e-12
  RCONST(445) = 2.3e-12
  RCONST(451) = 2.3e-12
  RCONST(465) = 2.3e-12
  RCONST(473) = 2.3e-12
  RCONST(487) = 2.3e-12
  RCONST(492) = 2.3e-12
  RCONST(523) = 2.3e-12
  RCONST(529) = 2.3e-12
  RCONST(543) = 2.3e-12
  RCONST(588) = 2.3e-12
  RCONST(624) = 2.3e-12
  RCONST(644) = 2.3e-12
  RCONST(699) = 2.3e-12
  RCONST(730) = 2.3e-12
  RCONST(756) = 2.3e-12
  RCONST(795) = 2.3e-12
  RCONST(829) = 2.3e-12
  RCONST(853) = 2.3e-12
  RCONST(861) = 2.3e-12
  RCONST(934) = 2.3e-12
  RCONST(940) = 2.3e-12
  RCONST(946) = 2.3e-12
  RCONST(952) = 2.3e-12
  RCONST(972) = 2.3e-12
  RCONST(983) = 2.3e-12
  RCONST(993) = 2.3e-12
  RCONST(998) = 2.3e-12
  RCONST(1004) = 2.3e-12
  RCONST(1038) = 2.3e-12
  RCONST(1065) = 2.3e-12
  RCONST(1070) = 2.3e-12
  RCONST(1074) = 2.3e-12
  RCONST(1080) = 2.3e-12
  RCONST(1093) = 2.3e-12
  RCONST(1098) = 2.3e-12
  RCONST(1102) = 2.3e-12
  RCONST(1106) = 2.3e-12
  RCONST(1137) = 2.3e-12
  RCONST(1154) = 2.3e-12
  RCONST(1168) = 2.3e-12
  RCONST(1174) = 2.3e-12
  RCONST(1186) = 2.3e-12
  RCONST(1233) = 2.3e-12
  RCONST(1250) = 2.3e-12
  RCONST(1306) = 2.3e-12
  RCONST(1312) = 2.3e-12
  RCONST(1342) = 2.3e-12
  RCONST(1358) = 2.3e-12
  RCONST(1362) = 2.3e-12
  RCONST(1366) = 2.3e-12
  RCONST(1372) = 2.3e-12
  RCONST(1376) = 2.3e-12
  RCONST(1444) = 2.3e-12
  RCONST(1468) = 2.3e-12
  RCONST(1472) = 2.3e-12
  RCONST(1476) = 2.3e-12
  RCONST(1481) = 2.3e-12
  RCONST(1485) = 2.3e-12
  RCONST(1511) = 2.3e-12
  RCONST(1515) = 2.3e-12
  RCONST(1519) = 2.3e-12
  RCONST(1524) = 2.3e-12
  RCONST(1528) = 2.3e-12
  RCONST(1542) = 2.3e-12
  RCONST(1546) = 2.3e-12
  RCONST(1550) = 2.3e-12
  RCONST(1556) = 2.3e-12
  RCONST(1560) = 2.3e-12
  RCONST(1566) = 2.3e-12
  RCONST(1570) = 2.3e-12
  RCONST(1578) = 2.3e-12
  RCONST(1582) = 2.3e-12
  RCONST(1586) = 2.3e-12
  RCONST(1609) = 2.3e-12
  RCONST(1618) = 2.3e-12
  RCONST(1632) = 2.3e-12
  RCONST(1643) = 2.3e-12
  RCONST(1647) = 2.3e-12
  RCONST(1674) = 2.3e-12
  RCONST(1679) = 2.3e-12
  RCONST(1686) = 2.3e-12
  RCONST(1701) = 2.3e-12
  RCONST(1716) = 2.3e-12
  RCONST(1720) = 2.3e-12
  RCONST(1739) = 2.3e-12
  RCONST(1744) = 2.3e-12
  RCONST(1748) = 2.3e-12
  RCONST(1767) = 2.3e-12
  RCONST(1771) = 2.3e-12
  RCONST(1799) = 2.3e-12
  RCONST(1803) = 2.3e-12
  RCONST(1978) = 2.3e-12
! END constant rate coefficients

! INLINED initializations

        TSTART = 0
        TEND = TSTART + 180000
        DT = 60.0
        TEMP = 278 + 30.0

! End INLINED initializations

      
END SUBROUTINE Initialize

! End of Initialize function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



END MODULE aromatics_kpp_Initialize

